﻿Imports DAL
Imports DTO


Public Class MonAn_BLL
    'Dim monAN_DAL As New MonAn_DAL

    'Public Function LoadData() As List(Of MonAn)
    '    Return monAN_DAL.LoadData()
    'End Function

    Public Function LayDanhSach() As IList
        Dim db As New QLTCDataContext()
        Dim query = From monan In db.MonAns
                    Select monan
        Return query.ToList()
    End Function
End Class
